home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / MyBuildMenu < prev    next >
Text File  |  2022-08-05  |  4KB  |  120 lines
  1. #
  2. # Build our custom version of the Build Menu
  3. #
  4. Set Exit 0
  5.     DeleteMenu Build ≥ Dev:Null
  6.     AddMenu Build 'Create Build Commands…' ∂
  7.         'Set Program "`∂`Commando CreateMake || Echo Set Status 0∂` ≥ "{ShellDirectory}"MPW.Errors ∂
  8.             || Alert < "{ShellDirectory}"MPW.Errors`"'
  9.     AddMenu Build '(-' ''
  10.     AddMenu Build 'Build…/B' ∂
  11.         'Begin; ∂
  12.          Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  13.          Exit If "{NewProgram}" == ""; ∂
  14.          Set Program "{NewProgram}"; ∂
  15.          Open "{Worksheet}"; ∂
  16.          Echo; Echo; ∂
  17.          BuildProgram "{Program}"; ∂
  18.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  19.     AddMenu Build 'Build Same/∫' ∂
  20.         'Begin; ∂
  21.          Exit If "{Program}" == ""; ∂
  22.          Open "{Worksheet}"; ∂
  23.          Echo; Echo; ∂
  24.          BuildProgram "{Program}"; ∂
  25.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  26.     AddMenu Build 'Full Build…' ∂
  27.         'Begin; ∂
  28.          Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  29.          Exit If "{NewProgram}" == ""; ∂
  30.          Set Program "{NewProgram}"; ∂
  31.          Open "{Worksheet}"; ∂
  32.          Echo; Echo; ∂
  33.          BuildProgram -e "{Program}"; ∂
  34.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  35.     AddMenu Build 'Show Build Commands…' ∂
  36.         'Begin; ∂
  37.         Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  38.          Exit If "{NewProgram}" == ""; ∂
  39.          Set Program "{NewProgram}"; ∂
  40.          Open "{Worksheet}"; ∂
  41.          Echo; Echo; ∂
  42.          BuildCommands "{Program}"; ∂
  43.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  44.     AddMenu Build 'Show Full Build Commands…' ∂
  45.         'Begin; ∂
  46.          Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  47.          Exit If "{NewProgram}" == ""; ∂
  48.          Set Program "{NewProgram}"; ∂
  49.          Open "{Worksheet}"; ∂
  50.          Echo; Echo; ∂
  51.          BuildCommands -e "{Program}"; ∂
  52.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  53.     AddMenu Build '(-' ''
  54.     Alias MADebugOff        "AddMenu Build 'MABuild Debug' MADebugOn; Set MADebuggingFlag 0"
  55.     Alias MADebugOn            "AddMenu Build 'MABuild Debug!' MADebugOff; Set MADebuggingFlag 1"
  56.     Alias MASymOff            "AddMenu Build 'MABuild SADE Symbols' MASymOn; Set MASADEFlag 0"
  57.     Alias MASymOn            "AddMenu Build 'MABuild SADE Symbols!' MASymOff; Set MASADEFlag 1"
  58.     Alias MARunOff            "AddMenu Build 'MABuild Runs App' MARunOn; Set MARunFlag 0"
  59.     Alias MARunOn            "AddMenu Build 'MABuild Runs App!' MARunOff; Set MARunFlag 1"
  60.     Alias MAAutoBuildOff    "AddMenu Build 'MABuild AutoBuild MacApp' MAAutoBuildOn; Set MAAutoBuildFlag 0"
  61.     Alias MAAutoBuildOn        "AddMenu Build 'MABuild AutoBuild MacApp!' MAAutoBuildOff; Set MAAutoBuildFlag 1"
  62.     Alias EvalMAOpts ∂
  63.         'If {MADebuggingFlag} == 1; Set CurMABuildOpts "-Debug"; Else; Set CurMABuildOpts "-NoDebug"; End; ∂
  64.          If {MASADEFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -Sym"; End; ∂
  65.          If {MAAutoBuildFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -AutoBuild"; End; ∂
  66.          If {MARunFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -Run"; End'
  67.     If {MADebuggingFlag} == 1
  68.         AddMenu Build 'MABuild Debug!' MADebugOff
  69.     Else
  70.         AddMenu Build 'MABuild Debug' MADebugOn
  71.     End
  72.     If {MASADEFlag} == 1
  73.         AddMenu Build 'MABuild SADE Symbols!' MASymOff
  74.     Else
  75.         AddMenu Build 'MABuild SADE Symbols' MASymOn
  76.     End
  77.     If {MARunFlag} == 1
  78.         AddMenu Build 'MABuild Runs App!' MARunOff
  79.     Else
  80.         AddMenu Build 'MABuild Runs App' MARunOn
  81.     End
  82.     If {MAAutoBuildFlag} == 1
  83.         AddMenu Build 'MABuild AutoBuild MacApp!' MAAutoBuildOff
  84.     Else
  85.         AddMenu Build 'MABuild AutoBuild MacApp' MAAutoBuildOn
  86.     End
  87.     AddMenu Build '(-' ''
  88.     AddMenu Build 'MaBuild…' ∂
  89.         'Begin; ∂
  90.          Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  91.          Exit If "{NewProgram}" == ""; ∂
  92.          EvalMAOpts; ∂
  93.          Set Program "{NewProgram}"; ∂
  94.          Open "{Worksheet}"; ∂
  95.          Echo; ∂
  96.          MABuild "{Program}" {CurMABuildOpts}; ∂
  97.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  98.     AddMenu Build 'MABuild Same/√' ∂
  99.         'Begin; ∂
  100.          Exit If "{Program}" == ""; ∂
  101.          EvalMAOpts; ∂
  102.          Open "{Worksheet}"; ∂
  103.          Echo; ∂
  104.          MABuild "{Program}" {CurMABuildOpts}; ∂
  105.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  106.     AddMenu Build '(-' ''
  107.     AddMenu Build 'Next Error/≥' ∂
  108.         'Begin; ∂
  109.          Find /•[ ∂t]*File/ "{Worksheet}"; ∂
  110.          Find !0 "{Worksheet}"; ∂
  111.          Execute "{Worksheet}.§"; ∂
  112.          End > Dev:Null ≥ Dev:Null'
  113.     AddMenu Build 'Previous Error/≤' ∂
  114.         'Begin; ∂
  115.          Find \•[ ∂t]*File\ "{Worksheet}"; ∂
  116.          Find !0 "{Worksheet}"; ∂
  117.          Execute "{Worksheet}.§"; ∂
  118.          End > Dev:Null ≥ Dev:Null'
  119. Set Exit 1
  120.